home *** CD-ROM | disk | FTP | other *** search
/ Print Library / Print Library.iso / library / menu / 00008.ls < prev    next >
Encoding:
Text File  |  1995-08-11  |  639 b   |  33 lines
  1. on exitFrame
  2.   if the lastEvent >= 1200 then
  3.     puppetSprite(14, 0)
  4.     puppetSprite(15, 0)
  5.     puppetSprite(16, 0)
  6.     sound fadeOut 1, 120
  7.     go("IDLER")
  8.   else
  9.     if rollOver(10) then
  10.       set thep to 14
  11.     else
  12.       if rollOver(11) then
  13.         set thep to 15
  14.       else
  15.         if rollOver(12) then
  16.           set thep to 16
  17.         else
  18.           set thep to 0
  19.         end if
  20.       end if
  21.     end if
  22.     repeat with e = 14 to 16
  23.       if e = thep then
  24.         set the locV of sprite e to 240
  25.         next repeat
  26.       end if
  27.       set the locV of sprite e to 1000
  28.     end repeat
  29.     updateStage()
  30.     go(the frame)
  31.   end if
  32. end
  33.